home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64 / sieger 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  178b  |  8 lines
  1. 10 ti$="000000"
  2. 20 f=5/4:v=80*f*f:t=v
  3. 30 i=i+v:z=(i+26)*f:ifz>int(z)then30
  4. 40 z=(z+10)*f:ifz>int(z)thenv=t*4:goto30
  5. 60 z=(z+9)*f:ifz>int(z)thenv=t*16:goto30
  6. 90 printz+8,i/(f*f)
  7. 100 printt/60"sekunden
  8.